let n = ref 0;;

(*
let rec loop i =
    n := !n + 1;
 	if (i > 1) then
        loop (i - 1);;

loop 1000000;;
*)

for i = 0 to 1000000 - 1 do
    n := !n + 1;
done;;

print_int !n;;
print_string "\n";;
